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I.  INTRODUCTION 

The  purpose  of  the  Table  Computation  Program  (TCP)  Is  to  provide  an  Inter* 
active,  flexible  tool  for  creating,  modifying,  and  manipulating  tabular  Infor¬ 
mation.  The  need  for  a  TCP  arose  In  the  Air  Force  Human  Resources  Laboratory 
(AFHRL)  Office  of  Analysis  and  Evaluation.  This  office  has  been  responsible 
for  estimating  costs  and  benefits  associated  with  many  of  the  AFHRL  research 
and  development  (RAD)  subthrust  components.  Actual  annual  costs  and  benefits 
are  discounted  and  summed.  These  results  are  then  multiplied  by  probabilities 
that  reflect  the  likelihood  that  those  discounted  benefits  will  occur.  In  the 
past  these  tabular  operations  were  performed  manually  at  a  great  cost  In 
time.  Additionally,  once  a  table  was  completed,  changes  In  the  analysis  or 
the  answering  of**what  If"**' questions  required  a  complete  manual  reworking  of 
the  table.  Each  table  was  somewhat  unique  In  Its  characteristics,  and  so  a 
special  purpose  program  designed  to  automate  the  process  for  one  table  would 
not  likely  be  useful  for  many  of  the  others.  „  -  —  - __ 

An  analysis  of  the  tabular  manipulations  required  to  produce  many  of  the 
cost/benefit  analysis  report  tables  already  In  existence  showed  that  the  fol¬ 
lowing  set  of  coluanar  operations  wes  both  necessary  and  sufficient  to  produce 
all  but  a  few  highly  specialized  tables. 

1.  Input  a  column  of  values. 

2.  Generate  a  sequence  of  fiscal  year  labels. 

3.  Generate  a  column  of  discount  factors. 

4.  Multiply  the  elements  In  one  column  by  the  corresponding  elements  In 
another  column  to  form  a  third  column. 

5.  Edit  the  contents  of  a  column. 

6.  Calculate  the  sums  of  columns. 

7.  Output  the  results  with  column  and  table  headings. 

These  capabilities  have  been  generalized,  expanded,  and  Incorporated  Into 
the  TCP.  A  modular  program  structure  has  been  maintained  to  facilitate  future 
expansion  of  the  TCP  capability.  In  addition,  a  capability  has  been  provided 
to  store  all  results  In  disk  files  named  by  the  user  for  future  recall,  thus 
eliminating  the  need  to  rebuild  the  table  If,  at  some  later  date,  there  Is  a 
desire  to  modify  certain  table  characteristics  In  order  to  answer  "what  If" 
questions. 

The  emphasis  throughout  has  been  to  provide  a  user  friendly  Implementation 
and  Integration  of  many  straightforward  but  tedious  manual  operations.  The 
result  Is  that  tables  which  Initially  took  approximately  45  minutes  to  create 


manually  now  take  less  than  IS  minutes.  In  addition*  changes  and  recalcula¬ 
tion  of  table  values  can  be  accomplished  at  a  much  greater  savings  in  time. 
Avoidance  of  arithmetic  errors  which  so  easily  occur  In  tedious  computations 
provides  added  confidence  that  the  results  are  free  of  non-systematlc  errors. 


II.  OVERVIEW  OF  PROGRAM  OPERATION 


The  TCP  has  been  programed  In  the  BASIC  computer  language.  This  language 
was  chosen  for  several  reasons.  A  program  listing  Is  contained  In  Volume  2. 

1.  BASIC  Is  highly  Interactive  and  lends  Itself  readily  to  the  rapid 
creation  of  routines  which  may  only  be  used  a  few  times. 

2.  BASIC  Is  an  easy  language  to  learn.  It  was  expected  that  other 
analysts  would  find  It  convenient  to  write  special  purpose  routines 
that  could  take  advantage  of  the  existing  capabilities  and  modular 
format  of  the  TCP. 

3.  The  operations  being  performed  by  TCP  are  not  highly  Iterative*  and 
thus  the  added  speed  of  a  compiled  language  Is  not  necessary. 

The  first  42  lines  of  code  Initialize  the  system*  establish  work  space 
dimensions,  and  define  three  functions  which  are  used  to  perform  error  trap¬ 
ping  checks. 

Lines  43  through  65  constitute  the  entire  main  program.  The  main  program 
asks  the  user  for  a  command.  If  the  user  supplies  a  valid  command*  the  main 
program  will  select  the  subroutine  corresponding  to  that  command  and  transfer 
control  to  It.  When  the  subroutine  Is  done*  the  main  program  asks  for  another 
conmand.  This  continues  until  the  command  "EXIT"  Is  given*  at  which  point 
control  Is  passed  to  the  subroutine  beginning  at  BASIC  line  80000  which  ter¬ 
minates  program  execution. 


The  remaining  lines  of  the  program  are  all  subroutines.  These  subroutines 
begin  on  the  BASIC  line  numbers  Indicated  below: 


BASIC  Description  of 

Line  No.  Subroutine 


1000  Input  a  column 

2000  Add,  subtract,  multiply*  or  divide  corresponding 

elements  of  two  columns  to  form  a  third  column 

3000  Print  selected  columns  (hard  copy) 

4000  Form  a  sequence  of  successive  discounting  factors 

5000  Zero  Initialize  a  column.  This  Is  done  whenever 

a  column  Is  created  or  overwritten 

6000  Form  in  evenly  spaced  sequence  of  values  (e.g«* 

fiscal  years) 
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BASIC 
Line  No, 

7000 

8000 

9000 

10000 

11000 

12000 

13000 

14000 

15000 

16000 

50000 

60000 

70000 

80000 

90000 


Description  of 
Subroutine 

View  selected  columns  on  terminal 

Insert  new  elements  Into  an  existing  column 

Delete  elements  from  an  existing  column.  Vacated 
elements  past  the  new  column  end  are  set  to  zero 

Change  (overwrite)  selected  elements  of  existing 
column 

Save  all  results  to  a  file  named  by  user 

Read  previously  saved  results  from  a  file  speci¬ 
fied  by  user 

Calculate  a  cumulative  sum  of  selected  columns 

Toggle  the  statistics  printing  enable  switch  on 
or  off 

Change  the  heading  of  a  specific  column 
Specify  the  precision  of  numerical  results 
Format  multiple  lines  of  column  heading  text 
Error  messages 
HELP  messages 
Terminate  execution. 

Calculate  statistics  of  a  column.  This  Is  done 
whenever  a  column  Is  created,  changed,  or  over¬ 
written. 


III.  HOW  TO  USE  THE  TABULATION  COAPTATION  PROGRAM  AT  AFHRL 


In  the  following  discussion,  non-under lined  material  represents  a  prompt 
printed  by  the  conqputer. 

Material  which  Is  underlined  represents  what  the  user’s  response  should  be 
to  these  prompts.  It  Is  assumed  that  the  user  has  already  signed  on  and  that 
the  system  Is  waiting  for  Instructions. 

►  tADD  HETCP.RUN 

►  TCP:?> 
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Immediately  following  the  "TCP:?  ►  *  cue,  the  user  will  enter  the  appro¬ 
priate  command  for  the  desired  TCP  function.  The  user  who  does  not  know  any 
appropriate  commands  can  enter  "HELP,”  and  will  be  told  what  to  do.  The  user 
win  continue  using  the  TCP  until  done  and  will  then  type  "EXIT"  to  terminate 
execution  In  a  graceful  manner. 


IV.  DESCRIPTION  OF  COMMANDS 

A.  General  Description  of  Program  Data  Structure. 

In  order  to  use  the  TCP  commands  effectively,  the  user  should  have  a  gen¬ 
eral  understanding  of  the  simple  data  structure  used  by  this  program.  The 
program  uses  a  series  of  numbered  columns  as  a  work  space.  There  are  80 
colunns,  each  of  which  can  be  up  to  40  elements  long.  If  you  need  fewer  but 
longer  columns,  see  Section  V  which  explains  how  the  program  dimensions  can 
easily  be  redefined.  Which  columns  are  used  for  any  particular  operation  Is 
totally  under  the  control  of  the  user.  If  the  user  chooses  to  place  results 
in  a  column  that  contained  previous  Information,  the  old  Information  will  be 
overwritten  by  the  new  results.  Associated  with  each  column  Is  a  variable 
(actually  an  element  of  an  80  element  vector)  for  each  of  the  following 
quantities: 

1.  Column  Heading. 

2.  Column  Length. 

3.  Column  Sum. 

4.  Column  Average. 

5.  Column  Variance  (unbiased  sample  variance). 

6.  Column  Standard  Deviation  (square  root  of  above  variance). 

Whenever  the  read  (R)  or  write  (W)  commands  are  Issued,  the  entire  80  X  40 
work  space  with  associated  variables  described  above  Is  read  from,  or  written 
to,  the  specified  file,  regardless  of  how  many  columns  or  rows  were  actually 
used.  Thus  the  user  need  not  worry  about  what  part  of  the  work  space  to  read 
or  write. 

B.  Specific  Commands. 

In  the  following  descriptions  the  mnemonic  symbol  appearing  first  Is  the 
command  that  will  be  recognized  by  the  TCP  program.-  Following  the  mnemonic 
symbol  Is  a  description  of  how  that  command  works  and  what  It  does. 

1.  CC  -  Column  by  Column  arithmetic.  This  command  asks  the  user  to 
specify  a  column,  a  rudimentary  arithmetic  operation  (+,  -,  *,/), 
and  a  2nd  column.  The  order  In  which  these  two  columns  Is 
specified  Is  significant  only  if  subtraction  (-)  or  division  (/) 
Is  specified.  The  user  Is  then  asked  for  the  number  of  a  column 


In  which  to  place  the  results  and  for  a  descriptive  column  head* 
Irn.  The  results  are  obtained  by  performing  the  specified  arith¬ 
metic  operation  between  the  1th  element  of  the  first  and  second 
specified  columns,  respectively,  and  placing  the  result  In  the 
1™  element  of  the  specified  results  column.  This  Is  done  for 
all  elements  of  the  longest  column.  The  shorter  column  Is  tem¬ 
porarily  padded  with  zeroes  to  make  It  as  long  as  the  longer 
column.  Thus,  the  results  column  will  be  as  long  as  the  longest 
column  used.  After  the  operation  Is  completed,  the  length  of  the 
shorter  column  remains  the  same  as  It  was  prior  to  the  operation. 

2.  CH  -  CHange  elements  In  an  existing  column.  When  this  command  Is 

given,  the  system  will  ask  the  user  for  the  number  of  the  column 
to  be  changed.  It  will  then  ask  for  the  row  number  of  the  next 
element  In  that  column  to  be  changed.  After  the  element  number 
Is  specified,  the  system  will  print  the  current  value  of  that 
element  and  ask  for  a  response  of  *Y',  'N',  or  'D'.  If  'Y'  Is 
specified  (meaning  YES),  the  system  will  ask  for  the  new  number. 
After  the  new  number  is  entered,  the  system  will  print  the  next 
number  and,  again,  ask  for  a  response  of  1 Y ' ,  'N',  or  'O'.  If 
'N'  (meaning  NO),  Is  entered,  the  system  will  ask  for  the  row 
number  of  tne  next  element  to  be  changed.  If  * D*  Is  specified, 
the  system  will  ask  for  another  command. 

3.  CUM  -  This  command  allows  the  user  to  create  a  column  with  elements 

equal  to  the  sum  of  all  elements  having  a  smaller  or  equal  row 

number  In  each  column  of  an  arbitrary  set  of  selected  columns. 

In  calculating  this  column,  the  negatives  of  specific  selected 

columns  may  be  used. 

4.  D  -  Delete  elements  from  an  existing  column.  This  command  behaves 

exactly  the  same  way  as  the  CH  command  except  that  elements  are 
deleted  rather  than  replaced.  After  an  element  is  deleted,  the 
system  will  allow  deletion  of  subsequent  elements  until  the  bot¬ 
tom  element  has  been  deleted,  at  which  point  the  system  will 
allow  deletion  of  the  new  bottom  element  until  all  elements  have 
been  deleted.  Deletion  of  elements  can  be  discontinued  at  any 
time  the  system  requests  a  'Y',  'N',  or  'D*  response  by  typing 
*D* .  Deletion  of  elements  results  In  a  column  of  shorter  length. 

5.  DISC-  Discount  factor  generation.  Use  of  this  command  will  cause  the 

system  to  ask  the  user  for  a  discount  rate.  The  user  will  next 
be  asked  to  supply  a  column  #  and  descriptive  heading  for  the 
results.  Finally  the  user  will  be  asked  to  specify  the  number  of 
years  for  which  discount  factors  are  required.  Discount  factors 
are  then  calculated  for  the  specified  number  of  years  according 
to  the  formulas: 
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F(l)»(l+(  1/0+0/100)  ))/2 
and 

F(1)«F(1-1)/(1+D/100) 

where 

F( 1)  Is  the  discount  factor  for  year  1, 
and 

0  is  the  annual  discount  rate  in  percent. 

The  expression  for  F(l)  results  in  the  calculation  of  midyear 
values  for  each  factor  in  the  series. 

6.  EXIT-  This  command  terminates  program  execution,  returning  the  user  to 

the  BASIC  language  system  level.  At  this  point  the  user  can 
enter  'RUN'  If  more  use  of  the  TCP  Is  desired  Otherwise  the 
user  should  type  'BYE'  to  get  back  to  the  opera-  g  system  level 
at  which  point  ' ©FIN*  should  be  entered  to  sign  < 

7.  HC  -  Heading  Change.  This  command  allows  the  use  ;o  change  the 

descriptive  heading  text  for  a  selected  colunn. 

8.  HELP-  This  command  causes  the  system  to  list,  on  the  terminal,  each  of 

the  available  commands,  along  with  a  brief  description. 

9.  I  -  Insert  elements  into  an  existing  column.  This  command  behaves  In 

exactly  the  same  way  as  the  IC  command  with  the  following  excep¬ 
tions.  Elements  will  be  Inserted  between  existing  elements  of 
the  specified  column  following  the  element  number  specified. 
Previously  existing  elements  are  not  changed  or  overwritten. 

10.  IC  -  Insert  Column.  This  command  allows  Initial  entry  of  tabular  data 

from  the  terminal.  The  user  Is  first  asked  for  the  number  of  the 
column  Into  which  data  should  be  placed,  and  for  a  descriptive 
column  heading.  The  user  Is  then  instructed  to  enter  the  data. 
After  every  value  Is  entered,  the  system  will  respond  with 
another  question  mark,  at  which  point  the  user  can  enter  another 
value,  type  'O'  to  leave  the  entry  mode,  or  type  an  'R'  followed 
by  an  Integer  valued  number.  When  *R'  followed  by  an  Integer  Is 
entered  (e.g.,  R5),  the  previously  entered  value  will  be  repeated 
the  number  of  times  specified.  For  example  If  23.4  Is  entered 
followed  by  an  R5,  the  value  of  23.4  will  be  automatically 
entered  five  more  times.  Thus  the  value  23.4  would  appear  six 
times  In  a  row.  If  an  'R'  Is  entered  with  no  nwber,  a  repeat 
count  of  one  Is  assumed. 


11.  PRINT-Thls  command  causes  selected  columns,  with  their  associated 

headings  to  be  output  to  the  printer.  Actual  printing  will  not 
occur,  however,  until  the  command  'EXIT'  Is  given.  Each  time 
the  PRINT  command  Is  Issued,  the  user  Is  pronpted  for  a  descrip* 
tlve  table  heading  of  up  to  60  characters,  and  then  Is  asked  to 
specify  how  many  columns  should  be  printed.  Up  to  eight  columns 
will  fit  side  by  side  on  the  printout  without  wraparound.  If 
more  than  eight  columns  are  specified  for  a  single  PRINT  com¬ 
mand,  results  may  become  difficult  to  read.  After  specifying 
how  many  columns  are  to  be  printed,  the  user  Is  asked  to  specify 
which  columns  should  be  printed.  Any  numbered  column  can  be 
printed  In  any  position.  The  PRINT  command  can  be  Issued  any 
mmiber  of  times  during  a  single  run.  When  the  RUN  Is  terminated 
by  typing  'EXIT',  a  table,  with  Its  associated  table  heading, 
will  be  printed  for  each  time  the  PRINT  command  was  Issued. 

12.  R  -  Read.  This  command  causes  the  system  to  ask  the  user  for  the 

name  of  a  file  to  be  read.  If  the  user  does  not  provide  the 
name  of  a  file  which  was  previously  created  using  the  W  (write) 
command,  an  error  message  will  result  and  execution  will  termi¬ 
nate.  If  a  valid  file  name  is  given,  the  contents  of  that  file 
will  be  read  into  the  current  work  space  and  will  be  available 
for  nanipulatlon  by  any  of  the  commands  supported  by  TCP.  Pre¬ 
viously  existing  material  In  the  work  space  will  be  overwritten. 

13.  SEX)  -  SEQuence.  This  command  allows  the  user  to  create  a  truncated 

sequence  with  equal  Intervals  and  store  It  In  any  desired 

column.  There  Is  no  requirement  that  the  sequence  be  either 

ascending  or  descending  nor  that  the  Intervals  be  integer 
valued.  The  user  Is  asked  to  supply  a  column  #,  descriptive 

heading,  beginning  value  of  the  truncated  sequence,  ending  value 

of  the  truncated  sequence,  and  interval  size.  If  the  specified 
ending  value  of  the  truncated  sequence  falls  between  two  members 
of  the  non-truncated  sequei.ce,  the  first  member  of  the  nontrun- 
cated  sequence  following  that  value  becomes  the  ending  value 
which  the  system  uses  to  generate  the  truncated  sequence. 
Sequence  values  are  stored  sequentially  in  the  specified 
column.  A  common  use  for  this  command  Is  to  create  a  sequence 
of  fiscal  year  labels  which  can  later  be  printed  along  side 
other  columns  of  the  table  to  make  the  table  easier  to  read  and 
interpret. 

14.  SP  -  Set  Precision.  This  command  allows  the  user  to  specify  the  pre¬ 

cision  of  numerical  results  to  be  displayed  when  using  the  PRINT 
or  VIEW  command. 

15.  TS  -  Toggle  Statistics.  Normally  the  only  statistic  that  will  be 

(TlsplayeB  for  each  column  when  the  VIEW  or  PRINT  comnands  are 
Issued  will  be  the  column  totals.  If  output  of  additional  sta¬ 
tistics  Is  desired,  issue  the  command  TS.  This  will  enable 
statistical  output.  Statistical  output  will  continue  to  be 
enabled  until  the  TS  command  is  Issued  again. 


16.  VIEW-  View  selected  columns  at  the  tens  Inal.  This  commend  works 

exactly  the  same  way  as  PRINT,  except  that  It  allows  the  user  to 
see  results  Immediately  at  the  terminal.  This  commend  does  not 
produce  hard  copy  unless  the  terminal  Is  a  printing  terminal.  In 
which  case  the  result  printed  at  the  tenalnal  Is  a  hard  copy. 
If  using  an  80-column -wide  video  tenalnal,  only  five  columns  can 
be  viewed  simultaneously  without  wraparound. 

17.  W  -  Write.  This  command  works  the  same  way  as  the  read  (R)  command 

except  that  It  causes  work  space  contents  to  be  saved  on  a  user 
specified  disk  file.  The  file  name  must  not  exceed  12  charac¬ 
ters  In  length  nor  contain  an  embedded  period.  A  terminating 
period  Is  optional.  Violation  of  these  rules  aiay  cause  the  pro¬ 
gram  to  tenalnate  prematurely,  thereby  losing  work  space  con¬ 
tents,  perhaps  before  execution  of  a  successful  save  can  be 
accomplished.  If  the  user  specifies  a  file  name  which  already 
exists,  the  contents  of  that  file  will  be  overwritten  by  the  new 
material.  Ourlng  the  process  of  adding  Information  to  the  work 
space.  It  Is  always  a  good  Idea  to  Issue  the  write  command  fre¬ 
quently  so  that  If  something  does  go  wrong,  only  that  Informa¬ 
tion,  added  since  the  previous  write  coammnd,  will  be  lost. 

C.  Sample  Session 

In  the  sample  session  that  follows,  non-under lined  material  denotes 
pronpts  printed  to  the  terminal  by  the  computer.  Underlined  material  denotes 
user  response  to  program  prompts.  The  session  below  assumes  that  the  TCP  has 
been  Invoked  and  Is  waiting  for  a  command. 


pTCP:?  t>SEQ 
pCOLUMN  ft  >1 
PHEADING?  pFTSCAL  YEAR 
t> BEGINNING  Of  SH)UEN&?  P  82 
PEND  OF  SEQUENCE?  p  85  ~ 

^INTERVAL  SIZE? 

P 

PTCP:?  P DISC 

PENTER  ANNOTOISCOUNT  RATE  IN  X?  p  10 
pCOLUMN  §  FOR  RESULTS?  P  2 
PHEADING?  P  DISCOUNT  FACTORS 
PNUHBER  OF  YEARS?  pT 
P 

PTCP: ?  P  IC 
PCOLUMN  fT >3 
^HEADING?  P BENEFITS 

PINPUT  ENTRIES--W  FOR  N  REPEATS  ’D"  WHEN  DONE 
P?  P  23.4 
P?  P  977S 
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V 


►  TCP:?  >CC 

►  1ST  colUW  #?  ►  2 

►  OPERATION  (+,  />?  ►  * 

►  2ND  COLUMN  #?  ►  3 

►  COLUMN  #  FOR  RESULTS?  M 
►HEADING  FOR  RESULTS?  ►  DTSC  BENEFITS 

► 

►  TCP:  ►VIEW 

►  #  COLUMHTYOU  WANT  TO  VIEW?  ►  4 

►  1ST  COLUMN  #?►  1 

►  2ND  COLUMN  #?►? 

►  3RD  COLUMN  #?►? 

►  4TH  COLUMN  #?►? 


► 

► 

►FISCAL  YEAR 

DISCOUNT 

FACTORS 

BENEFITS 

DISC  BENEFITS 

►  82 

.95454545 

23.4 

22.336364 

►  83 

.86776859 

97.5 

84.607437 

►  84 

.78888054 

97.5 

76.915853 

►  85 

.71716413 

97.5 

69.923502 

►  TOT  AL 

TOTAL 

TOTAL 

TOTAL 

►  334 

3.3283587 

315.9 

253.78315 

► 

►  TCP:?  ►W 

►  OUTPUT  FILE  NAME  (NO  ELEMENTS)?  ►  TESTDATA 

► 

►  TCP:?  ►EXIT 

►  TIME:  ►.757 

► 

>  ►RUN 

> 

► 

►  TCP:?  ►  VIEW 

►  #  C0LUMN5TUU  WANT  TO  VIEW?  ►  4 

►  1ST  COLUMN  #?  ►  1 

►  2ND  COLUMN  #?  ^7 

►  3RD  COLUMN  #?  ►! 

►  4TH  COLUMN  #?  ►* 


► 


► . 

►  TOTAL 

TOTAL 

TOTAL 

TOTAL 

►  o 

0 

0 

0 

► 

► 

►  TCP:?  ►  R 

►  INPUT  FITE  NAME 

(NO  ELEMENTS)? 

►  TESTDATA 

► 


>  TCP:?  >1 

>  COLUMN?  >  3 

k  ELEMENT  TO~INSERT  AFTER?  »  2 

>  97.5  —THIS  ONE  ' Y*  OR  'N'>Y 

f»  ENTER  INSERTS— 'RN'  FOR  N  REPEATS  'D*  WHEN  DONE 

>  ?  >n.7 

>  ?  >T?r" 

>  ?  >r 

b  ? 

>  TCP:?  >VIEW 

>  #  COLUMHTYflU  WANT  TO  VIEW?  >  4 

>  1ST  COLUMN  #?  >  I 

>  2ND  COLUMN  #?  >  ? 

0  3RD  COLUMN  #?  ►  7 
»  4TH  CaUMN  #?  >  ? 

>  DISCOUNT 

>RSCAL  YEAR  FACTORS  BENEFITS  DISC  BENEFITS 


.95454545 

23.4 

22.336364 

.86776859 

97.5 

84.607437 

.78888054 

11.7 

76.915853 

.71716413 

11.7 

69.923502 

0 

11.7 

0 

0 

11.7 

0 

0 

11.7 

0 

0 

11.7 

0 

0 

97.5 

0 

0 

97.5 

0 

TOTAL 

TOTAL 

TOTAL 

3.3283587 

386.09999 

253.78315 

After  the  '§FIN'  command  is  given,  the  UNIVAC  SYSTEM  will  sign  the  user 
off  and  deactivate  the  terminal.  If  the  command  'PRINT'  was  Issued  during  any 
run,  printed  output  results  should  appear  In  the  computer  center  output  bln 
within  about  15  minutes  of  the  time  the  'EXIT*  command  was  Issued. 


V.  REDEFINING  PR06RAM  ARRAY  DIMENSIONS 

Due  to  the  fact  that  the  AFHRL  Office  of  Analysis  and  Evaluation  works 
with  benefit  periods  which  are  generally  less  than  20  years,  the  program  array 
dimensions  have  been  set  to  allow  for  80  columns  and  40  rows  (40  elements  per 
column).  Other  users,  however,  may  need  fewer  but  longer  columns.  If  so.  It 


Is  easy  to  redefine  the  array  dimensions.  Only  four  statements  In  the  entire 
program  need  be  modified.  In  BASIC  line  number  50,  variable  D8  should  be  set 
equal  to  the  new  desired  number  of  columns.  In  BASIC  line  number  70,  variable 
D9  should  be  set  equal  to  the  new  desired  number  of  rows.  In  BASIC  line  num¬ 
bers  80  and  81,  vector  and  array  dimensions  should  be  set  to  reflect  the  new 
values  for  D8  and  09  as  shown  In  the  comment  on  BASIC  line  numbers  75  and  76. 

When  redefining  program  dimensions,  care  must  be  taken  to  ensure  that  the 
product  of  08  and  09  does  not  exceed  approximately  3200.  If  It  does,  the  pro¬ 
gram  will  not  run.  If  this  happens,  the  user  should  simply  experiment  with 
values  which  produce  a  smaller  product  until  success  Is  achieved. 

Files  written  by  the  TCP  with  current  dimension  specifications  cannot  be 
read  after  the  TCP  has  been  re-dimensioned. 


VI.  ADDING  ADDITIONAL  CAPABILITIES 

Due  to  modular  design  of  the  TCP,  additional  capabilities  can  be  quickly 
and  easily  added.  To  do  so,  the  user  will  simply  write  a  subroutine  to  sup¬ 
port  the  new  capability  and  add  an  appropriate  'IF*  statement,  between  BASIC 
line  numbers  800  and  950,  that  will  recognize  the  new  command  and  Invoke  the 
new  subroutine  when  that  command  Is  given.  If  the  new  subroutine  Is  to  be 
added  to  the  user's  copy  of  the  TCP  on  a  permanent  basis,  the  user  should  also 
aad  an  appropriate  PRINT  statement  between  BASIC  line  numbers  70180  and  70490 
to  describe  the  command  when  'HELP*  Is  Invoked. 

The  AFHRL  Office  of  Analysis  and  Evaluation  anticipates  expanding  the  TCP; 
therefore,  other  users  should  ensure  that  subroutines  they  add  have  BASIC  line 
numbers  that  are  completely  contained  within  the  range  30000-49999.  It  is 
also  convenient  to  ensure  that  subroutines  begin  with  a  descriptive  REMark  at 
a  BASIC  line  number  that  is  an  Integral  multiple  of  1000.  Tnls  facilitates 
easy  reference  to  the  subroutine. 

Care  must  be  taken  when  using  subroutine  variable  names  that  have  been 
marked  with  an  asterisk  (*)  In  section  VII,  Description  of  Program  Variables. 
These  variables  contain  work  space  values  and  parameters,  values  used  by  the 
main  program,  or  other  permanent  parameters,  and  must  not  be  changed  Indis¬ 
criminately.  They  should  not  be  used  to  store  temporary  values  nor  should 
they  be  used  as  counters  since  this  would  overwrite  work  space  results  or 
change  program  parameters. 

The  Air  Force  Human  Resources  Laboratory  Office  of  Analysis  and  Evaluation 
would  greatly  appreciate  a  copy  and  description  of  any  useful  subroutines  that 
have  been  added  to  the  TCP  by  other  users.  Direct  such  Inputs  to: 

AFHRL/ OA 

Brooks  AFB,  Texas  78235 


VII.  DESCRIPTION  OF  PR06RAM  VARIABLES 

*  A(0)  ■  Average  of  Column  J 
B  «  Beginning  of  sequence 

*  C(0,e)  ■  The  eth  element  of  column  J 
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C$  ■  The  variable  used  for  temporary  storage  of  string  values 
0  *  Discount  rate 
D1  ■  1  +  Discount  rate 

*  08  *  #  of  columns  this  program  allows 

*  D9  *  I  of  rows  per  column  this  program  allows 

*  DCJ)  «  Standard  deviation  of  column  J 

E  ■  End  of  sequence  or  end  position  of  header  string 

*  F  »  Flag  set  to  1  If  a  subroutine  executed 

*  F1  *  Flag  for  checking  numerics  in  function  B 

*  F2  »  Flag  to  print  statistics 

F(J)  ■  Flag  to  Indicate  end  found  for  column  J  header  text 
G  *  Gap  between  adjacent  elements  of  sequence 
H(J)  *  Number  of  lines  needed  for  column  J  heading 

*  H$(J)  *  Heading  for  column  J 

I,  K,  H,  Y  *  Temporary  counters  for  for-next  loops  etc. 

J  =  Pointer  to  current  column 
l  *  Max  column  length 

L$  =  Temporary  heading  manipulation  string 

M  =  Maximum  number  of  reading  print  lines  needed 

N  *  Number  of  columns  to  be  viewed  and  number  of  rows  in  column 

*  N(J)  =  Current  #  of  elements  In  column  J. 

0$  *  String  variable  to  store  operation. 

PI  and  P2  =  Pointers  to  two  columns  Involved  in  an  arithmetic 
operation. 

P(J)  a  Pointer  to  position  In  column  J  header 
P$  =  Temporary  output  print  string 
OS  =  Temporary  output  cumulative  print  string 
x  r$  =  Input  variable  for  operator  response 

S2  *  Sum  of  column  elements  squared  used  In  computing  variance 

*  S ( J)  »  Sum  of  column  J 

*  S$(J)  *  Form  string  for  numeric  output  of  column  J 

*  U ( J)  *  Variance  of  column  J 

V ( I )  *  Ith  column  to  be  viewed 


VIII.  DESCRIPTION  OF  THE  SOFTWARE 
A.  Program  Name:  Table  Computation  Program  (TCP). 

3.  Version  Name:  Since  there  Is  only  one  version  of  this  program,  the  version 
name  is  Identical  to  the  program  name  above. 

C.  Software  Technical  Description: 

This  program  has  been  pro  gr  a  awed  In  the  BASIC  computer  language^  and 
Implemented  using  the  Sperry  Unlvac  Series  1100  UBASIC/BBAoIC  level  9RT  Basic 
Interpreter.  It  requires  38  thousand  36  bit  words  of  memory  and  makes  use  of 
operating  system  executive  commands  using  the  EXEC  statement.  Thus  unique 
features  of  operating  system  must  be  taken  Into  account  when  liqplementlng  this 
software  on  a  different  system.  See  Section  II  for  an  outline  of  the  struc¬ 
ture  of  this  program. 


IX.  INSTRUCTIONS  FOR  REQUESTING  COPIES 


For  More  Information  regarding  this  program  contact  the  Air  Force  Human 
Resources  Laboratory  (AFHRL),  Office  of  Analysis  and  Evaluation  (OA). 


X.  RELEASE  INSTRUCTIONS 

Software  nomlly  can  be  released,  free  of  charge,  to  Federal,  state  and 
local  government  agencies  upon  approval  by  AFHRL/TS  or  higher  headquarters. 
Requesting  agencies  should  complete  the  Air  Force  Standard  Statement  of  Terms 
and  Conditions  Included  In  this  document  and  forward  the  completed  statement 
to  AFHRL/TS,  Brooks  AFB,  Texas  78235.  The  cover  letter  for  the  request  should 
be  prepared  on  agency  letterhead  and  Include  the  name,  address,  and  phone 
nunfcer  of  a  contact  point.  If  software  Is  to  be  transmitted  In  machine 
readable  form,  the  requesting  agency  should  be  prepared  to  supply  the  blank 
magnetic  tape  reels. 


STATEMENT  OF  TERMS  AND  CONDITIONS 
RELEASE  UF  AIR  FORCE -OWNED  OR  DEVELOPED  COMPUTER  SOFTWARE 


DATE:  _ 

1.  In  accordance  with  the  provisions  of  AFR  300-6,  release  of  the  following 
U.S.  Air  Force  software  package  (computer  programs,  systems  descriptions, 
and/or  documentation)  is  requested: 


2.  The  requested  software  package  will  be  used  for  the  following  purposes: 


Such  use  is  projected  to  accrue  benefit  to  the  Government  as  follows: 


3.  I/we  will  be  responsible  for  assuring  that  the  software  that  we  received 
will  not  be  used  for  any  purpose  other  than  shown  in  paragraph  2  above;  also, 
it  will  not  be  released  to  anyone  without  the  prior  approval  of  the  Air 
Force,  further,  the  release  of  the  requested  software  package  will  not  result 
in  competition  with  other  software  packages  offered  by  commmercial  firms. 


4.  i/we  guarantee  that  the  provided  software  package,  and/or  any  modified 
version  thereof,  will  not  be  published  for  profit  or  in  any  manner  offered  for 
sale  to  the  government;  it  will  not  be  sold  or  given  to  apy  other  activity  or 
firm,  without  the  prior  written  approval  of  the  Air  Force.  If  this  software 
is  modified  or  enhances  using  government  funds,  the  Government  owns  the 
results,  whether  the  software  is  the  basis  of,  or  incidental  to  a  contract. 
The  Government  shall  not  pay  a  second  time  for  this  software  or  the 
enhanced/modified  version  thereof.  The  package  may  be  used  in  contract  with 
the  Government  but  no  charge  may  be  made  for  its  use. 
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5.  The  U.S.  Air  Force  Is  neither  liable  nor  responsible  for  Maintenance, 
updating  or  correction  of  ary  errors  In  the  software  package  provided. 


6.  I/we  understand  that  no  Material  subject  to  national  defense  security 
classification  or  proprietary  right  was  intended  to  be  released  to  us.  I/we 
will  report  promptly  the  discovery  of  any  material  with  such  restrictions  to 
the  Air  Force  approving  authority.  I/we  will  follow  all  instructions 
concerning  the  use  or  return  of  such  material  In  accordance  with  regulations 
applying  to  classified  Material,  and  will  make  no  further  study,  use  or  copy 
such  material  subject  to  security  or  proprietary  rights  marking. 


7.  I/we  understand  that  the  software  package  received  is  intended  for 
domestic  use  only.  It  will  not  be  made  available  to  foreign  governments  nor 
used  in  any  contract  with  a  foreign  government. 


Signature  of  Requestor  Signature  of  Air  force 

Approving  Authority 


'Name/Title  of  Requestor  Name/title  of  Air  Force 

Approving  Authority 


Organization /Address 


Organization/Location 


